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EDTSSCRFIND = find a record in the screen struc 14-56 =300- 138% 91:33:38 VAX-11 Bliss-32 V4.0-7 Page 1 
14-Sep-1984 12:24: DISKSVMSMASTER: tt i sre SCRFIND.BLI;1 (1) 
1001 ZTITLE “EDTSSCRFIND = find a record in the screen structure’ 
§ MODULE EDTSSCRFIND ( . ; ! Find a screen reco ord 
bbz jDENT = 'v04-000 ! File: SCRFIND.BLI Edit: JBS1016 
005 : BEGIN 
007 : ee ee Sameera eee 
:* e 
Baye 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
0012 : - ALL RIGHTS RESERVED * 
° ® 
i 1 '® THIS her: 5 He FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0015 1 !* INCLUSION OF THe yet COPYRIGHT NOTICE. THIS sok Tw ARE OR ANY OTHER, * 
0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY’ * 
0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ; * 
gis ! ‘* TRANSFERRED. * 
° . 
0020 1 !* pi INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ts 
0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT if ® 
it) : i CORPORAT iON. x @ 
° ® 
Base 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS - * 
8082 ! i; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® ® 
0027 1 !# & 
Bose : leueeueeerenetecneneeeneneecenererteereceerententeernetnntentnntnereetenster® 
0080 | 
0031 1 !4+ 
O086 : } FACILITY: EDT -=- The DEC Standard Editor 
0034 1 ' ABSTRACT: 
0035 1! 
0036 1! This module searches for a record in the screen 
ot H4 : } data structure. 
4 : ENVIRONMENT: Runs at any access mode - AST reentrant 
9041 AUTHOR: John Sauter CREATION DATE: 13-Sep-1982 
a94s 1 MODIFIED BY: 
45 1! 1-001 - he This module was crested by extracting the search code from 
BOeg 1! KCHG. SMB 22-Sep-1982 
S944 : : 1-002 - — as °93%,88 porseesers and rH code to original extracted version. 
Bek 3- fl @ a my Ae assed. SMB 28-Se -1982 
50 1 ! 1-004 - Modify to use new 48 bit macros. ha 01- $55 1982 
a oo 5 = Search for E0B differently. SMB 05-Oct-1 
O26 1! - Modify to return value of screen pointer ool SMB 08-0ct-1982 
53 1! 07 - Increment and decrement displacement on Lines equal. SMB 12-Oct-1982 
54 1! 3 - Modify to use new compare macro. STS 20-Oct-19 
055 1! 9 = Deleted Lines have the record number of the next Line. 1385 25-0c t-1982 
2$ 1! 10 - Modify search for bottom Line of a record. SMB 28-0ct-1 
a 11 - Fix a bug in notruncate mode. SMB 24-Nov-1982 


EDTSSCRF IND EDTSSCRFIND - find a record in the screen struc 14-96 $ep-1984 01:33: VAX-11 Bliss-32 V4.0-7 
Oe e800 1e-Sep- 1382 94:33:38 DISKSVMSMASTER: CeoT. Ske SCRFIND.BLI;1 page as 


; H e } ! j- } - vorry about deleted Lines when_scanning backwards. JBS 25-Nov-1982 

3 ! d- = Remove the edit bu fer. at BS 27-Dec-1982 

a. 1 ! 1-014 = Fix a problem involving de eted l nes n notr eqete 1399°- JBS 23-May-1983 
gs. 6 6§ 1 ! 1-015 = Improve the appearance of the Listing. JBS 17-Jun-1 

3 86 : } 1-016 = The delete flag takes priority over column position. JBS 06-Jul-1983 

>; 64 0064 1 


' 
; NONE 
; EXTERNAL REFERENCES: 
i In the routine 
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EDTSSCRF IND EDTSSCRFIND = find & record in the screen struc 16-Sep-1984 01:33:52 VAX-11 Bliss-32 V4.0 Page 3 
v04-000 Declarations 14-Sep-1984 12:24:26  DISKSVMSMASTER:CEDT. Sac SCRFIND.BLI;1 (2) 
3 $6 5 1 &SBTTL ‘Declarations’ 
; «6 066 1! 
: «68 1 | TABLE OF CONTENTS: 
; ; B98 : ' 
; 4 076 REQUIRE "EDTSRC:TRAROUNAM'; 
ae. 210 1 FORWARD ROUTINE 
; © 11064 EDTSSSC_FNDREC; ! Fins a screen record 
: ba18 1 | 
Por 214 1 | INCLUDE FILES: 
PB oes ene 
: 80 213 REQUIRE "EDTSRC:EDTREQ’; 
. Be bees 
; 83 0654 i MACROS: 
: 85 0656 NONE 
: $ 658 1 | EQUATED SYMBOLS: 
> «88 659 1} 
i neue Sar a eee 
; i QWN STORAGE: 
: 1i 
: 1 
; 1 
; 1 
; 1 
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-FNDREC < find a record in the screen da 14-Sep-1984 DISKSVMSMASTE 
ZSBTTL "EDTSSSC_FNDREC - find a record in the screen data structure’ 
GLOBAL ROUTINE EDTSSSC_FNDREC ( ! Find a screen record 


P ! Position on the Line 
- peteeees ! Displacement from cursor screen Line 
$2 


+ 
FUNCTIONAL DESCRIPTION: 
Given the current record number, determine if it has a corresponding 
screen block in the screen data structure. If so, return 
the address. 
FORMAL PARAMETERS: 
POSITION The position on the Line at which the operation takes place 
DISPLACEMENT The displacement of the current Line info block from the cursor Line info block 
IMPLICIT INPUTS: 


EDTSSA_LST_SCRPTR 
EDT$$A_E0B_SCRPTR 
EDTSSA_wWk_CN 


UN “SO OONOVULSWN “OVO OVNOUSWN OO 0@~ 


EDT$$Z_E0B_LN 
EDTSSA_CSR_SCRPTR 
EDTS$$A_CUR_BUF 
EDTSS$L_CUR_SCRLN 
EDTS$A_SCR_BUF 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


PEPER 
Saeas 


BEGIN 


VWIIIIIIIS33 


NOUESWN OOO 
UENO OONOU EW - O0OnN 


Last screen info pointer 

Address of E0B Line 

Current workfile Line 

EOB screen pointer — 

Pointer to cursor line screen info 
Current text buffer control block. 
Record number of current screen Line 
Current screen buffer 


ao 


* : REF 
R_SCRPTR_: REF 
R T 
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— 


LOCAL 
' Displacement temporary 
SCRPTR : REF SCREEN_LINE, ‘ Pointer to our screen Line 
OF LN_BLOCR, ! Record number of our screen Line 


ine the screen buffer is different from the current buffer then bail out. 
; None of the Lines in the current buffer can be on the screen. 

DISP = 0; 

FOUND_LINE = 0; 

Fg Te TeeA ee EQLA .EDTSS$A_SCR_BUF) 

BEGIN 

i Find our screen Line block. 
7 SCRPTR = .EDTSSA_CSR_SCRPTR; 
: First check to see if we are searching for EOB on the screen. 


IF (.EDTS$A_WK_LN EQLA EDT$$Z_E0B_LN) 
THEN 
BEGIN 
IF (.EDTS$A_LST_SCRPTR NEQA .EDT$$A_EOB_SCRPTR) 
FOUND LINE = 0 
SE 


BEGIN 

FOUND_LINE = 1; 

WHILE (-SCRPTR NEGA .EDTSSA_EOB_SCRPTR) DO 
SCRPTR = .SCRPTR CSCR_NXT LINE]; 


a a kd td 
AAQMMANMNMNVUUUUI ES BE PEEL LEE 
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4 
; 


0764 DISP = .DIS 1; 

0765 END; 

0766 

0767 END; 

$768 END 

$786 

0771 BEGIN 

4k 4 MOVELINE (EDTS$L_CUR_SCRLN, RECORD_NO); 

ie WHILE (( NOT .FOUND_LINE) AND (.SCRPTR NEQA 0)) DO 

O77 CASE OPLNO (RECORD_NO, EDTSSA_CUR_BUF CTBCB_CUR_LIN]) FROM -1 TO 1 OF 
778 

th {-1] : !' Cursor Line is before current Line 
4 ? BEGIN 

7 2 LOCAL 


‘sca 


tis ee 
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FIND = find a record in the screen struc 16-Sep- 
_FNDREC oy KF a record in the screen da 1 ~$40-|984 9:32 


NEXT_SCRPTR : REF Pata 
NEXT_SCRPTR = .SCRPTR CSCR_NXT_LINEJ; 
IF _(.NEXT_SCRPTR NEQA 0) 

BEGIN 

IF ({¢.SCRPTR CSCR_EDIT FLA 
(CCNEXT SCRETR “eh: IN 
CINEXT= “SCRPTR CSCR-EDI 
ADDLINE (NUMBER_ONE, RECORD_NO); 


VAX-11 8 
DISK KSVMSR 


"no 


IDX 


DISP = .DISP 
oa PTR = CRP TR’ CSCR_NXT_LINEJ; 


BEGIN 
'¢ 
a If this line is deleted test the next following non-deleted Line. 


SUSAR 


CD ~IOD. 909.09 09 0D 0D OD a D> DDD DD. IO D* DD DPD ID I BB III OOF SIO NIA OA IO UIT 


oo 


SCRPTR = .SCRPTR CSCR_NXT_LINE); 
IF (,SCRPTR NEQA 0) 
te BEGIN 
; we have a non-deleted Line, check column number. 


— — ss 


IF ((.SCRPTR CSCR_ CHR_FROM] LEQ .POSITION) 
A ~SCRPTR CSCR-CHR_TOJ] GEQ .POSITIO 


'¢ 


SESS...) 
SSSSSSSSISZOVS 


FOUND_LINE = 1 
ELSE 
BEGIN 
it <-POSETION GTR .SCRPTR CSCR_CHR_TO)) 
om BEGIN 
This Line is continued; the Line we want is further down the screen. 


SCRPTR = .SCRPTR CSCR_NXT_LINEJ; 
DISP = .DISP + 1; 


END 
ELSE 
BEGIN 


0.00 00 Gp 00 0d 0d 0d 0 Gd CD Cd 00 0 CD. CD CUD. OD 
PEN 0 OO WOU WN O OONOUE WN OO 


oo 


$s-32 V 
STER: tb 


0) : ! Cursor Line is the current Line 


This Line is not deleted and contains the correct column. It is the Line we want. 


1 °SRCSSCRF IND. BLI; ° 


gs), AND SCRAEDIT DELLN) EQL 0) AND 
T“FLAGS) AND SCR_EDIT_DELLN) NEQ 0))) 


' Move forward 


6 
* 3) 


WHILE ((.SCRPTR NEQA 0) AND ((.SC “He CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0)) D 


Rete coe ee ee ee ee ee : :) 


| 
€ FIND EDTSSCRFIND = find a record in the screen struc 16-5 Sep-1984 3: VAX=-11 iss-32 V 7 
fbu+000 EDISE SC. FNDREC - find a record in the screen da 1 735p71 382 9}: 34 36 DISK K$V neh MASTER: ce Ebi OSRCISCREIND.BLI:1 1 hen (3) 
s er '¢ 
: f k This is a continuation Line; the Line we want is further up the screen. 
|i 2? ASSERT (POSITION LSS .SCRPTR CSCR_CHR FROM): 
; 74 4 SCRPTR SCRPT S bare LINE ' Move backward 
; i 5 ASSERT CCSCRPT R LSCR “Ebi T t LAGS) AND SCR “Ebi “DELLN) EQL 0); 
; 7 § DISP = .DISP = 1; 
; 278 + 7 
i iy $2 6 END; 
: 281 i ; END; 
; Be 53 4 END; 
; B 55 4 1; ! Cursor Line is after the current Line 
: M4 528 : BEGIN 
; HH B36 é IF ((.SCRPTR CSCR_LINE_IDX] EQL 0) 
3 89 5 g (C, SCRPTR CSCR_EDIT_FLAGS) AND oer ebIT _DELLN) NEQ 0)) 
: 290 0860 THEN 
: 1 pee! ° BEGIN 
; : Be 8 LOCAL 
: 99% 864 6 PREV_SCRPTR : REF SCREEN_LINE; 
; 96 0866 6 PREV_SCRPTR = .SCRPTR CSCR_PRV_LINE); 
: 298 OB 6 IF (.PREV_SCRPTR NEQA 0) 
3 99 9 $ THEN 
im BRE ces 
; 0¢ 087 8 IF ((.PREV_SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0) 
; 04 874 7 SUBLINE (NUMBER_ONE, RECORD_NO); 
: 305 875 7 
3 43 0876 6 END; 
: 308 i END 
; 7 : 
3 10 80 DISP = .DISP - 1; 
; 311 881 SCRPTR = .SCRPTR CSCR_PRV_LINE); 
: \¢ 88 ? END; 
: 314 th 4 COUTRANGE) : 
; 13 nH : om ASSERT (0); 
wo OBEY me 
; 31 . 
3 0 90 END; 
3 1 4 ;, 
3 + 
; 5 38 i 1 FOUND LINE is not set, the record does not appear on the screen. | 
; $ iy i In that Case return zero. 
: 326 96 .DISPLACEMENT = .DISP; 


SG Ce eel Ree ————$__—______, 
' 

EDTSSCRE IND EDTSSCRFIND = find a record in the screen struc 1b-5e “1984 01:33: VAX-11 Bliss-32 V4.0-74 P 8 
042000 EDTSSSC_FNDREC = find a record in the screen da 1 ~$00n 138% 94:33:38 NT EKSUMGMASTERSCEDT SRCISCRFIND.BLI;1°%* (3) 
3 7 97 

: $s $s ; IF .FOUND_LINE THEN RETURN (.SCRPTR) ELSE RETURN (0); 

; 900 END; ! of routine EDTS$SC_FNDREC 


TITLE EDTSSCRFEIND EDTSSCRFIND = find a record in the 
Py screen struc 
.IDENT \V04-000\ 
.EXTRN EDTSSA_LST_SCRPTR 
XTRN EDT$$Z-EOB-LN, EDTSS$A_WK_LN 
SEXTRN EDT$$A~EOB-SCAPTR 
-EXTRN EDTS$SA~CSR-SCRPTR 
.EXTRN EDTSSA_CURTBUF, EDTS$L_CUR_SCRLN 
.EXTRN EDTSSA-SCR-BUF, EDTSSINTER-ERR 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
07FC 00000 .ENTRY EDTS$SC_FNDREC, Save R2,R3,R4,R5,R6,R7,R8,- ; 0671 
SA 900000006 0 9E 0000 MOVAB EDT$$A_CUR_BUF, R10 : 
39 00000006 00 3 00 NOVA EDTSSIATER-ERR, RO : 
§ ce 0018 CLRO.  DISP : 0736 
L A_CUR_BUF, EDT$$A_SCR_BUF : 
000000006 00 A Di} 0 13 CPL FDTSS CUR_BUF, EDTS$$A_SC 0739 
56 900000006 0 6 OO18 MOVL EDTS$$A_CSR_SCRPTR, SCRPTR : 0745 
50 000000006 9 000 MOVAB €DT$$Z~E0B“LN, : 0750 
50 000000006 ; p} 00 CMPL EDTSSA_UK_CN, RO : 
50 000000006 00 00 999 MOVL § EDT$$A_EOB_SCRPTR, RO + 0754 
50 000000006 3 D4 a0048 CPL EDTSSALLST_SCRPTR, RO : 
- ps 0004 CLRL - FOUND_LINE + 0756 
F2 31 00047 1$: BRW 26$ ; 
58 gi D0 QO04A 3: MOVL #1, FOUND_LINE : 0759 
50 6 01 00040 3$: CMPL = SCRPTR, RO + 0761 
5 Is 0050 BEQL «=s«1$ ; 
56 04 ag Dd 0005 MOVL 4 (SCRPTR), SCRPTR : 0763 
5 06 005 INCL ISP : 0764 
F311 0005 BRB $ > 0761 
6E 000000006 00 28 0005A 4$: MOVC3 #6, EDTS$$L_CUR_SCRLN, RECORD_NO : 0772 
E2 E 62 5$: BLBS FOUND LINE; 1$ : 0774 
D TSTL SCRPTR ; 
DE 1 67 BEQL $ ; 
50 6A 6 C1 00069 ADDL3 #6, EDTS$A_CUR_BUF, RO : 0776 
04 Ad 04 AE 81 the CPW Wight, 4(RO) ; 
10 12 7 BNEQ $3 ; 
60 : p O76 CMPL Low.t, (RO) F 
€ 0007 BGEGU ; 
50 1 CF 7B 6$: MNEGL #1, RO ; 
9 7 BRB 9$ ; 
4 12 7$: BNEQ 8$ ; 
9 D CLRL = RO ; 
03 (11 BRB 9$ F 


oe 


ny 
| 


1 
EDTSSCRE IND EDTSSCRFIND - find a record in the screen struc 16-Sep-1984 01:33: VAX-11 Bliss-32 V4.0-74 p C 
Ete 800 EDTSESC. FNDREC - find a record in the screen da 1 ~$007 1382 94:33:38 DIEKSVMGMASTERSCEDT SRCISCRFIND.BLI:1°7" (3) 
0 i D0 s00Ks 8 : MOV #1, RO ; 
FEFFFFFE = BF 0 CF : CASEL RO. #-1, #2 : 
0088 mi 0008 0091 10$: «WORD 5188 ; 
22$-10$ 3 
69 00 Fe 97 CALLS #0, EDTSSINTER_ERR + 0885 
C6 1 9A 118: BRB 5 : 0776 
50 06 Ab D 9C 12$:  MOVL  4(SCRPTR), NEXT_SCRPTR + 0785 
16 1 A BEQL 148 + 0787 
1 0D Ab 0 f A BBS #2, 13(SCRPTR), 14$ : 0791 
08 A A TSTB = 8(NEXT_SCRPTR) : 0792 
0 1 AA BEQL 13s ; 
07 0D Ad E AC BBC #2, 13(NEXT_SCRPTR), 14$ + 0793 
4 Bg Bi 13$ INCL FIRST_LWORD + 0795 
03 1 B BNEQ 14$ : 
04 AE 2 B INCW NEXT_WORD : 
5 0B8 14$: INCL  DISP + 0799 
56 04 A6 DO OOOBA MOVL  4(SCRPTR), SCRPTR > 0800 
A2 11 OOOBE 15$: BRB rt} : 0776 
56 D3 00CO 16$: TSTL SCRPTR : 0809 
1 13 000C¢ BEQL 4 ; 
06 0D A6 02 €1 O0¢4 BBC #2, 13(SCRPTR), 17$ : 
56 04 A6 DO 00069 MOVL  4(SCRPTR), SCRPTR : 0810 
Fl 11 O9¢D BRB 16$ ; 
91 13 QOOOCF 17$:  BEQL 5$ : 081 
04 Ac 09 Ab 08 5 FD 9001 CMPZV #0, #8, O(SCRPTR), POSITION : 081 
04 Ac OA Ab 08 FD OODA CMPZV #0, #8, 10(SCRPTR), POSITION + 0820 
5 19 00061 BLSS «18 ; 
58 1 po 00E3 MOVL § #1, FOUND_LINE : 0825 
1 O06 BRB 25$§ : 
04 Ac OA Ab 08 6 ‘ 0OE8 18$:  CMPZV #0, #8, 10(SCRPTR), POSITION : 0829 
OOEF BGEQ)3=s«éd:98 ; 
56 04 Ag DO O00F1 MOVL  4(SCRPTR), SCRPTR : 0835 
57 D OOF INCL  DISP : 0836 
Al 11 000F BRB 11$ : 0829 
04 Ac 09 Ab 08 09 FD O0F9 19$ CMPZV At #8, O(SCRPTR), POSITION > 0843 
69 00 FB 6} CALLS #0, EDTSSINTER_ERR : 
56 DO 00105 20$:  MOVL (SERPTR) > 0844 
03 Op Ab E1 001 BBC a, 13(SECRPTR), 218 + 0845 
69 Fe 1 CALLS #0, EDTSSINTER_ERR F 
D7 00110 21$:  DECL Disp > 0846 
8 1 11 BRB 1$ : 0818 
08 A ? 114 228: STB ¢SCRPTR) > 085 
17 i) As E1 00119 BBC $3 13(SCRPTR), 24$ : 0859 
5 p i 238: MOVL (SERPTR), PREV_SCRPTR ; dees 
0D 0p Ad 02 €0 001 BBS #2, 13(PREV_SCRPTR), 248 ; 889 
50 6— 00 001 MOVL FIRST_WORD, “SAVE : 0874 
6E D7 00128 DECL FIRST WORD F 
50 6 pI 1 CMPL BIRST-WORD, SAVE : 
1 BLEQU 24$ 3 
04 AE B67 001 DECW  NEXT_WORD ; 
5? 07 00135 248:  DECL  ODISP ; 0880 
56 66 DO 001 MOVL (SCRPTR), SCRPTR : 0881 


Vbe=000 SCLFNDREC ="find's record inthe screen de stor 19h P)i32:38 — DESKSUMGMASTERSCEDT-SRCSSCRFIND.BLI;T (49 


gi 1% 35 §: BRB 15$ 3 0776 
BC a 13¢ 36 MOVL DISP DISPLACEMENT + 0896 
a BLBS — FOUND_ + 0898 

CLRL = R6 : 

50 56 oS 00145 27$:  MOVL 6, RO ; 
04 00148 RET + 0900 


; Routine Size: 329 bytes, Routine Base: _EDTSCODE + 0000 


33) 0901 1 
2 0902 1 !<BLF/PAGE> 


eRyegear tee 


Bete Se Ge Se Oe Oe 


i 


Name 
_EDTSCODE 


File 


-$255$0UA28: 
~$255$DUA28: 


EDTSSCRFIND - find a record in the screen struc 18-5 Sep-1984 3: VAX-11 Bliss-32 V4.0 11 
ED Teese _FNDREC = find a record in the screen da 1 =3007 138% 9}: 3 38 DISKSVMSMASTER: EDT. She SCRFIND.BLI;1 fage (4) 
0304 ! END ! of module EDTSSCRF IND 

5 0 ELUDOM 


PSECT SUMMARY 
Bytes Attributes 
329 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ececeses Syahe|§ ecocesce Pages Processing 
Total Loaded Percent Mapped Time 
speeT - SRCJEDT.L32;1 377 47 12 49 00:00.2 
- SRCIPSECTS.L32;1 2 1 50 00:00.1 


COMMAND QUALIFIERS 


FL ESEPCAECR OEP EELS. ENE TEAL ,GPTSRL EE) /HOTRACEBACE/L ESA, 180s SCRI IND/OBJ OBIS 1SEAF IND MSRC$:SCRFIND.BLI/UPDATE=(ENH$: SCRE IND 


a 


Flopsed’i 
Lines/CPU a, 
Lexemes/CPU-Min: 
eee | Used: 
: Compit 


329 ae , 0 data bytes 


Ti 3 


ation Complete 
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